﻿Imports TreeCreeper01Interfaces

Friend Class cIndexablePlant
    Private mPlant As IPlant
    Private mListIndex As Integer

    Public ReadOnly Property ListIndex() As Integer
        Get
            Return mListIndex
        End Get
    End Property

    Public ReadOnly Property Plant() As IPlant
        Get
            Return mPlant
        End Get
    End Property

    Sub New(ByVal Plant As IPlant, ByVal Index As Integer)
        mPlant = Plant
        mListIndex = Index
    End Sub

End Class
